﻿Imports System.Web.Services
Imports MoniMisi2

Partial Class Marquesina
  Inherits System.Web.UI.Page

  <WebMethod()> _
 Public Shared Function ManejoEmployees(ByVal pContrato As MoniMisi2.ProveedorDatosServidor.Contrato) As MoniMisi2.ProveedorDatosServidor.Contrato
    Dim Contrato As MoniMisi2.ProveedorDatosServidor.Contrato = pContrato
    Dim Employees As New NorthWindTableAdapters.EmployeesTableAdapter
    If Contrato.Operacion.Nombre = "Leer" Then
      Contrato = ProveedorDatosServidor.LeerFilas(Contrato, Employees.Adaptador(pContrato.Orden))
    End If
    Return Contrato
  End Function
End Class
